home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d7
/
cistlx.arc
/
CIS.SLT
< prev
next >
Wrap
Text File
|
1990-08-30
|
2KB
|
72 lines
/////////////////////////////// CIS.SLT ////////////////////////////////////
// This is a SALT Script for logging on to CIS.
// Compu-Serve B is turned on and off automatically.
// This is quite a modification of the original version from Telix.
// The important chaage is the addition of an infinite loop to
// interogate the carrier detect status and to break out
// and turn off Compu-Serve B after the session is completed..
// If CompuServe B is left on as a terminal option in other services
// any ASCII 16 value will cause telix to crash.
//
// **********************************
// * Rewritten by Dan Berky *
// * Westville, NJ 08093 *
// * Donated to the Public Domain *
// * (C) 30 Aug. 1990 *
// **********************************
//
str user_id[] = "71510,1041";
// Put your CIS account in the above line.
// The script will get the proper password
// from the dialing directory (Telix puts that password in the script system
// variable called _entry_pass).
// Put your user id and password in the above lines instead of the 'x's
// Before using this script for the first time, or when you make a change,
// type 'cs cis' at the DOS prompt to compile the script for use by Telix.
//////////////////////////////////////////////////////////////////////////////
main()
{
int n = 0;
_cisb_auto=1;
transtab("CLEAR.XLT");
alarm (1);
while (n < 5) // loop up to 5 times to send the Ctrl-C
{
delay (25);
cputc ('^C');
if (waitfor ("User ID:", 7))
break;
}
if (n >= 5)
{
hangup ();
return;
}
cputs(user_id); // send user id
cputs ("^M"); // and Carriage Return
waitfor ("Password:", 15);
cputs (_entry_pass); // send password
cputs ("^M"); // and Carriage Return
While (1)
{
terminal ( );
if (carrier()==0)
{
transtab("TELIX.XLT");
_cisb_auto=0;
break;
}
}
}